#/usr/bin/perl

open(my $fh, "<", "file1234");
print unpack("i", <$fh>) . "\n";
close($fh);
